home *** CD-ROM | disk | FTP | other *** search
/ AM/FM: Amiga Musicians' Freeware Magazine 15 / AM-FM 15.adf / AMFM-15 < prev    next >
AmigaDOS Script File  |  1992-09-02  |  747b  |  38 lines
  1. .key foo
  2.  
  3. :c/cd :
  4.  
  5. :c/assign libs: :libs
  6. :c/assign s: :s
  7. :c/assign c: :c
  8. :c/assign devs: :devs
  9. :c/assign ENV: RAM:
  10.  
  11. :c/MemCheck 600000
  12. if not warn
  13.     :c/Copy :c/Wait RAM:
  14.     :c/AMFMMenu :s/Music-menu
  15. else
  16.     echo "Sorry - not enough free memory for background music..."
  17. endif
  18.  
  19. Echo "  When the picture appears, you can get rid of it by pressing"
  20. Echo "  the mouse button."
  21. :c/Decrunch >nil: :Graphics/AMFMTitle.HAM.pp ram:
  22. :c/IFF >nil: ram:AMFMTitle.HAM
  23. :c/Delete >nil: ram:AMFMTitle.HAM
  24. :c/Echo "Front picture by Stephan Fuhrmann."
  25. ;:c/Echo "Sorry, no disk space for any front-picture this time..."
  26.  
  27. :c/Zoomwindows quiet
  28.  
  29. :c/amfmmenu :s/menu
  30.  
  31. :c/Zoomwindows quiet
  32.  
  33. assign s: sys:s
  34. assign c: sys:c
  35. assign libs: sys:libs
  36. assign devs: sys:devs
  37. cd sys:
  38.